home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / fed-case / flows / roulette.flow < prev    next >
Encoding:
Text File  |  1993-12-05  |  1.1 KB  |  36 lines
  1. C.Joosen & R.Heijmans
  2. Heijmans & Joosen
  3. FED-CASE
  4. Mon Oct 18 02:40:17 1993
  5. R1.0
  6.   858993202  859008879  1869573999  1869573938
  7.                                                                                
  8.   859059250  842215986  842150193  875770418
  9. ˆV_main()€
  10.   859059506  825439282  842150449  926102066
  11. •LI_in=50; LI_profit=0€
  12.   859059762  825441330  842150449  858993202
  13. €
  14.   859061298  825441586  842215985  892547634
  15. ‹LI_profit<0€
  16.   859060018  825439282  842150449  875770418
  17. ˆLI_in*=2€
  18.   859060274  825441842  842150449  993210930
  19. ªLI_gamble=36*rand()+1; LI_result=37*rand()€
  20.   859061042  825439282  842150449  909324850
  21. “LI_profit+=36*LI_in€
  22.   859060530  825505842  842150449  909324850
  23. “LI_gamble-LI_result€
  24.   859060786  825440050  842150449  858993202
  25. 0€
  26.   859453996  825440050  842152241  858993202
  27. „ELSE€
  28.   859454258  825373740  858927675  909324850
  29. LI_profit-=LI_in€
  30.   859062066  825373490  842150449  875770418
  31. ˆV_main()€
  32.   859061810  825441586  842150449  858993202
  33. €
  34.   859061554  825441842  842150449  1026765362
  35. µprintf("maximum in today %d : %4d\n",LI_dag,LI_inzet)€
  36.